home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1249 / mortgage.t < prev    next >
Encoding:
Text File  |  1997-04-18  |  1.2 KB  |  53 lines
  1. %
  2. % "mortgage.t" generate listing of monthly mortgage
  3. % principle and interest
  4. %
  5. %   Sample program for the T Interpreter by:
  6. %
  7. %   Stephen R. Schmitt
  8. %   962 Depot Road
  9. %   Boxborough, MA 01719
  10. %
  11.  
  12. program
  13.  
  14.     var balance, f,
  15.         payment, i,
  16.         interest_rate,
  17.         interest,
  18.         principle : real
  19.     var years, month, n : int
  20.         
  21.     prompt "loan amount $"
  22.     get balance
  23.     put "loan    = $", balance:2
  24.  
  25.     prompt "interest rate %"
  26.     get interest_rate
  27.     put "apr     = ", interest_rate, "%"
  28.     prompt "years to pay"
  29.     get years
  30.     put "term    = ", years * 12, " months"
  31.  
  32.     i := interest_rate / 1200
  33.     n := years * 12
  34.     f := balance * i * ( 1 + i )^n / ( ( 1 + i )^n - 1 )
  35.     payment := 0.01 * ceil( 100 * f )
  36.     put "payment = $", payment:2
  37.     put ""
  38.     put "  #   principle    interest     balance"
  39.     put "---------------------------------------"
  40.     n := 0
  41.     loop
  42.  
  43.         incr n
  44.         interest := 0.01 * round( 100 * balance * i )
  45.         principle := payment - interest
  46.         balance := balance + interest - payment
  47.         put n:3, principle:12:2, interest:12:2, balance:12:2
  48.  
  49.         exit when balance <= 0.0
  50.  
  51.     end loop
  52.  
  53. end program